<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%on error resume next dim rs,sql,imgpath imgpath="uppic/" sql="update news set hits=hits+1 where id="&cstr(request("id")) conn.execute sql set rs=server.CreateObject("adodb.recordset") sql="select * from news where id="&request.QueryString("id")&" " rs.open sql,conn,1,1 dim y,m,d y=year(rs("addtime")) m=month(rs("addtime")) d=day(rs("addtime")) if m<10 then m="0"&m if d<10 then d="0"&d addtime=y&"-"&m&"-"&d %> 上海介观信息技术服务有限公司
 
     首 页   |   企 业 版   |   家 庭 版   |   网 吧 版   |   纳 米 技 术   |   加 盟 代 理   |   联 系 我 们   |   论 坛   |   英 文 版
有什么业务问题!即时交流点这里!
有什么技术问题!即时交流点这里!
<% set rsa=server.createobject("adodb.recordset") sqla = "select top 5 * from news order by addtime desc" rsa.Open sqla,conn,1,3 if rsa.EOF or rsa.BOF then response.write ("暂时没有任何信息!") end if do while not rsa.EOF if len(Trim(rsa("title")))>10 then title = Left(Trim(rsa("title")),10)&"..." else title = Trim(rsa("title")) end if %>
  " target="_blank" ><%= title %>  
<%rsa.movenext Loop rsa.close set rsa = nothing %>
   本公司负责软件产品的开发、维护,升级! 贵单位只需把所有精力都放在销售上即可!
 
 
  <%=rs("title")%>         
日期:<%=addtime%>         浏览次数:<%=rs("hits")%>
<%=rs("content")%>
    【打印本页】【关闭窗口
版权所有  |  谢谢合作  |  铭箭网络科技技术支持
汽车租赁   远程控制   纳米技术   GO2lan虚拟局域网   上海介观信息技术服务有限公司版权所有